home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 004 / reading.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-04-24  |  3.6 KB  |  76 lines
  1. 5  REM This program is Reading
  2. 10  KEY OFF:WIDTH 80:CLS:DEFSTR C,R,S,Z:DEFINT I,L,T
  3. 20  LOCATE 1,27:COLOR 0,7:PRINT " ***** TACHISTOSCOPE *****";
  4. 30  LOCATE 3,10:COLOR 7,0:PRINT "This program is designed to improve your reading speed.";
  5. 40  LOCATE 5,10:PRINT "I will briefly display a short phase and you try and read it.";
  6. 50  LOCATE 7,10:PRINT "Type what you see, and I will tell you if you were right.";
  7. 70  COLOR 15: LOCATE 25,25:PRINT "press any key when you're ready";
  8. 74  CHAIN MERGE "words.dta", 75, ALL
  9. 75  GOSUB 1000:T1=1000:T4=100:T$=TIME$:XX=VAL(LEFT$(T$,2))*120+VAL(MID$(T$,4,2))*60+VAL(RIGHT$(T$,2)):RANDOMIZE XX
  10. 78  C(1)="Right":C(2)="Correct":C(3)="Absolutely":C(4)="You're doing OK!":C(5)="I knew you'd get that one"
  11. 80  IF INKEY$ = "" THEN GOTO 80
  12. 100  RESTORE:FOR I=1 TO INT(RND*L+1):READ S:NEXT I
  13. 110  COLOR 10:CLS:LOCATE 12,1,0:PRINT STRING$(80,"-");:LOCATE 14,1,0:PRINT STRING$(80,"-");
  14. 120  T=5:GOSUB 2000
  15. 130  X=40-INT(LEN(S)/2):COLOR 15:LOCATE 13,X:PRINT S
  16. 140  FOR I=1 TO T1:NEXT I:CLS
  17. 150  COLOR 7:LOCATE 1,1:PRINT "Enter what you read ":INPUT R
  18. 160  IF R=S THEN GOSUB 500 ELSE GOSUB 600
  19. 170  COLOR 15:LOCATE 24,22:PRINT "Do you want another phrase (Y or N)?";
  20. 180  I$=INKEY$:IF I$="" THEN GOTO 180
  21. 190  IF INSTR("ynYN",I$)=0 THEN GOTO 180
  22. 200  IF INSTR("yY",I$)<>0 THEN GOTO 100
  23. 210  END
  24. 500  COLOR 0,7:I=RND(6)*6+1:X=40-LEN(C(I))/2:LOCATE 12,X:PRINT C(I):COLOR 7,0
  25. 510  PLAY "mbc16c16c16ge8g"
  26. 520  T1=T1-T4:RETURN
  27. 600  PLAY "n50n25":T4=10
  28. 610  COLOR 7:LOCATE 3,1:PRINT "Sorry - Try again!":INPUT R
  29. 620  IF R=S THEN GOTO 500
  30. 630  PLAY "n50n25":COLOR 7:LOCATE 12,27:PRINT "Sorry, what I gave you was"
  31. 640  COLOR 0,7:LOCATE 13,27:PRINT S:COLOR 7,0
  32. 650  T1=T1+T4:RETURN
  33. 1000  ON ERROR GOTO 1050
  34. 1010  RESTORE:L=0
  35. 1020  READ X$:L=L+1:GOTO 1020
  36. 1050  RETURN
  37. 2000  T$=TIME$:T3=VAL(LEFT$(T$,2))*120+VAL(MID$(T$,4,2))*60+VAL(RIGHT$(T$,2))
  38. 2010  T$=TIME$:T2=VAL(LEFT$(T$,2))*120+VAL(MID$(T$,4,2))*60+VAL(RIGHT$(T$,2))
  39. 2020  IF T>T2-T3 THEN GOTO 2010 ELSE RETURN
  40. 10000  DATA fat,cat,act,can,fast,hat,hand,last,man,ran,have
  41. 10010  DATA red,hen,let,get,help,next,pet,men,went,bed,said
  42. 10020  DATA big,pig,fir,did,swim,six,dig,win,sit,hit,been
  43. 10030  DATA rug,bug,jump,hunt,fun,must,cup,bus,cut,run,of,from
  44. 10040  DATA hot,pond,got,hop,not,dog,log,lost,soft,on,was,want
  45. 10050  DATA glass,grass,bell,dress,will,still,off,cross,fuss,stuff,roll
  46. 10060  DATA milk,truck,ask,back,mask,neck,desk,sick,silk,rock
  47. 10070  DATA fish,dish,brush,splash,wish,ship,shop,shed,shut,shelf,wash
  48. 10080  DATA rich,witch,lunch,catch,ranch,pitch,such,match,much,stretch,watch
  49. 10090  DATA that,this,them,than,then,thin,bath,thick,with,cloth,both
  50. 10100  DATA pink,thank,bank,think,trunk,string,sang,long,bring,hung,young
  51. 10110  DATA play,day,may,say,stay,train,rain,wait,paint,mail,they
  52. 10120  DATA bake,safe,chase,came,cake,gave,late,game,name,made,break
  53. 10130  DATA see,need,keep,sleep,me,she,clean,read,teach,piece
  54. 10140  DATA try,dry,by,cry,fly,pie,tie,lie,cried,tried,eye
  55. 10150  DATA side,line,five,time,like,fine,ride,hide,kite,mine,give
  56. 10160  DATA find,kind,mind,hind,blind,right,night,light,fight,might,wind
  57. 10170  DATA go,no,slow,show,own,low,boat,road,goat,coat,to,do
  58. 10180  DATA cold,nose,old,those,hold,close,told,hope,gold,home,one
  59. 10190  DATA new,chew,few,blue,threw,true,grew,suit,flew,fruit,build
  60. 10200  DATA use,mule,cute,goose,loose,choose,food,soon,zoo,room,you,school
  61. 10210  DATA some,friend,done,does,come,shoe,move,guess,live,head
  62. 10220  DATA put,pull,push,full,bush,foot,look,good,book,took,could,should,would
  63. 10230  DATA why,wheel,when,whip,which,who,white,whose,while,what
  64. 10240  DATA all,draw,ball,crawl,call,fault,fall,caught,saw,taught,shall,gone
  65. 10250  DATA brown,house,cow,found,down,sound,how,our,now,out,your,four
  66. 10260  DATA toy,noise,joy,point,boy,soil,join,boil,oil,spoil
  67. 10270  DATA hear,year,ear,rear,dear,cheer,clear,deer,near,steer,here
  68. 10280  DATA hair,care,air,scare,pair,bare,chair,square,fair,share,bear,where
  69. 10290  DATA fork,or,for,short,horse,floor,store,tore,shore,more,wore,door
  70. 10300  DATA barn,yard,car,arm,farm,are,hard,dark,far,march,part
  71. 10310  DATA her,jerk,serve,girl,bird,first,third,curl,turn,hurt,word,work,were
  72. 10320  DATA better,never,after,under,coller,color,other,mother,water father
  73. 10330  DATA funny,happy,story,hurry,party,any,many,very,ready,pretty
  74. 10340  DATA write,knew,know,wrote,lamb,talk,walk,laugh,climb,eight
  75. 10350  DATA one,two,three,four,five,six,seven,eight,nine,ten
  76.